home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / bingo2.zip / WHIZ3.SC < prev    next >
Text File  |  1991-09-16  |  872b  |  49 lines
  1. PROC TablComp3()
  2. CLEAR
  3. CURSOR OFF
  4. PLAY "Bingo3"
  5. CLEAR
  6.   VIEW "Bingo"
  7.   VIEW "Bingo3"
  8.   MOVETO FIELD "Field Name-2"
  9.   COEDITKEY
  10.   WHILE ATLAST() = False
  11.     MESSAGE " Inserting RECORD# "+StrVal(RECNO())+ " of "+StrVal(NRECORDS("Bingo3"))
  12.     fn2 = [Field Name-2]
  13.     ft2 = [Field Type-2]
  14.     UPIMAGE
  15.     [Field Name-2] = fn2
  16.     [Field Type-2] = ft2
  17.     DOWN
  18.     DOWNIMAGE
  19.     DOWN
  20.     LOOP
  21. ENDWHILE
  22. DO_IT!
  23. CLEAR
  24.   VIEW "Bingo"
  25.   VIEW "Bingo3"
  26.   END
  27.     COEDITKEY
  28.     MESSAGE " Inserting RECORD# "+StrVal(RECNO())+ " of "+StrVal(NRECORDS("Bingo3"))
  29.     fn2 = [Field Name-2]
  30.     ft2 = [Field Type-2]
  31.     UPIMAGE
  32.     [Field Name-2] = fn2
  33.     [Field Type-2] = ft2
  34.     DOWNIMAGE
  35. DO_IT!
  36. MESSAGE " Finished...  "
  37. BEEP SLEEP 100 BEEP SLEEP 500
  38. ENDPROC
  39. TablComp3()
  40. SAVEVARS ALL
  41. PLAY "Whiz4"
  42. PLAY "Bing_mnu"
  43. CLEARALL
  44. MENU RETURN
  45.  
  46.  
  47.  
  48.  
  49.